home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47a.d64 / colormaker 64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  60 lines
  1. 1 REM ****************************
  2. 2 REM *      COLORMAKER 64       *
  3. 3 REM ****************************
  4. 4 REM *     (C) BY GPG-SOFT      *
  5. 5 REM ****************************
  6. 6 REM
  7. 10 POKE198,0
  8. 20 POKE53280,6:POKE53281,6
  9. 30 INPUT"[147][155][206]AME DES [194]ILDES";NA$
  10. 40 NA$=LEFT$(NA$+"********",8)
  11. 50 FORI=1TO8
  12. 60 POKE4259+I,ASC(MID$(NA$,I,1))
  13. 70 NEXT
  14. 80 SYS4268:REM LOAD PICTURE
  15. 85 GOSUB460:IFD=1THEN80
  16. 90 PRINT"[147]1 - [200]IRES (PACKED)"
  17. 100 PRINT"2 - [200]IRES ([200]I-[197]DDI)"
  18. 110 PRINT"3 - [205]ULTICOLOR ([203]OALAPAINTER)"
  19. 120 GETA$:IFA$=""THEN120
  20. 130 IFA$<>"1"THENGOTO140
  21. 135 POKE8017,1:POKE4166,0:POKE4105,127:POKE4107,64
  22. 136 POKE4121,39:GOTO200
  23. 140 IFA$<>"2"THENGOTO150
  24. 145 POKE8017,0:POKE4166,0:POKE4105,128:POKE4107,0
  25. 146 POKE4121,232:GOTO200
  26. 150 IFA$<>"3"THENGOTO120
  27. 160 POKE8017,3:POKE4105,127:POKE4107,64
  28. 170 POKE4166,16:POKE4121,39
  29. 200 PRINT"[147][194]ITTE [196]ISKETTE FUER [199]RAFIKEN EINLEGEN"
  30. 210 PRINT"[194]UCHSTABE DER [198]ILES ?"
  31. 220 GETA$:IFA$=""THEN220
  32. 230 F=ASC(A$):IFF<65ORF>90THEN220
  33. 250 POKE53280,2:S=49:GOSUB400
  34. 260 POKE53280,6:S=50:GOSUB400
  35. 270 POKE53280,0:S=51:GOSUB400
  36. 280 POKE53280,7:S=52:GOSUB400
  37. 290 POKE53265,27:POKE53272,23
  38. 300 PRINT"[147]"
  39. 310 POKE53280,6:POKE53281,6
  40. 320 END
  41. 400 SYS4096:FORI=0TO15
  42. 410 READA:POKE8000+I,A
  43. 420 NEXT
  44. 430 SYS4326:REM BERECHNUNG
  45. 440 POKE4260,F:POKE4261,S:SYS4294:REM SAVE
  46. 445 GOSUB460:IFD=1THENGOTO440
  47. 450 RETURN
  48. 460 OPEN1,8,15
  49. 461 INPUT#1,Q1,Q$,Q2,Q3:CLOSE1
  50. 462 IFQ1=0THEND=0:RETURN
  51. 463 POKE53265,27:POKE53272,23
  52. 464 POKE53281,6
  53. 465 PRINT"[147][194]ITTE ANDERE [196]ISKETTE EINLEGEN"
  54. 466 GETA$:IFA$=""THEN466
  55. 467 D=1:RETURN
  56. 500 DATA0,0,1,0,2,0,0,0,2,3,2,0,0,0,0,0
  57. 510 DATA0,0,0,2,3,3,1,0,0,2,0,0,0,4,2,0
  58. 520 DATA1,0,0,0,0,0,0,0,0,0,0,3,4,0,0,4
  59. 530 DATA0,0,0,4,0,2,0,1,3,2,0,0,0,3,0,0
  60.